home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
design60.zip
/
VARS.INC
< prev
next >
Wrap
Text File
|
1991-05-13
|
1KB
|
63 lines
Program Design;
{$V-}
{
Started 04-18-87
Allows custom designing of database programs.
Generates the Turbo Pascal source code for
the application.
Jerry Adkins
Box 1160
Rialto, CA 92376
}
const
demo = true;
filename = 'dfc.dat';
keyfilename = 'dfc.tmp';
prnfile = 'dfc.prn';
setupfile = 'dfcolor.dat';
scratch = 'scratch.dat';
waiver = 'waiver.dfc';
recsize = 700;
{ The following formats are used in the Print_Using Procedure }
phn = '(###)###-####'; { Phone number format }
day = '##/##/##'; { Date format }
ss = '###-##-####'; { Social Security number format }
F10 = #68;
F8 = #66;
F7 = #65;
F6 = '@'; { IBM Function key codes Fx }
F5 = '?';
F4 = '>';
F3 = '=';
F2 = '<';
F1 = ';';
arrow = #16;
lf = #10; cr = #13; esc = #27;
type
String200 = String[200];
String150 = String[150];
String80 = String[80];
String75 = String[75];
String65 = String[65];
String60 = String[60];
String40 = String[40];
String30 = String[30];
String25 = String[25];
String20 = String[20];
String15 = String[15];
String12 = String[12];
String10 = String[10];
String6 = String[6];
String5 = String[5];
String4 = String[4];
String3 = String[3];
String2 = String[2];
String1 = String[1];
Choices = Array[1..12] of String25;